0 REM THE TRANSACTOR VOLUME 6 ISSUE 02        BITS & PIECES SECTION
10 REM SAVE"0:B TO XX32.BAS",8
20 REM -- FOR BITS AND PIECES VOLUME 6 ISSUE 02
30 :
100 REM ** CHANGE B-128 PROGRAM TO RUN ON 80/4032
110 REM ** JACK WEAVER    INPUT SYSTEMS, INC.
120 REM ** 15600 PALMETTO LAKE DR.  MIAMI FL 33157
130 REM ** PHONE (305) 252-1550
140 :
150 CU$=CHR$(145): CD$=CHR$(17): CL$=CHR$(157): RY$=CHR$(18): RN$=CHR$(146)
160 C$=CHR$(0)
170 OPEN 15,8,15,"I0
180 [150] [165] R(X)[178](B2[172]256[170]B1)[170]1022
190 [215] D0
200 [153] CU$;RY$;"NAME OF B-128 PROG TO CHANGE"RN$" ";
210 [133] OF$
220 [153] CD$"NEW NAME OF THE 80/4032 PROGRAM ";
230 [133] NF$
240 [153] "B-128 PRG = "RY$;OF$: [153] "80/4032 PRG = "RY$;NF$
250 [153] CD$;CD$"(null)(null)  (Y/N)  N"CL$;CL$;CL$;
260 [133] YN$
270 [139] YN$[179][177]"Y" [167] [144]
280 A[178]1025: [159] 4,8,4,OF$: [139] DS [167] [153] DS$: [144]
290 [161]#4,A$,B$: A1[178][198](A$[170]C$): A2[178][198](B$[170]C$): [139] A1[179][177]3 [167] [206]: [144]
300 [159] 5,8,5,"@0:"[170]NF$[170]",P,W": [139] DS [167] [153] DS$: [144]
310 [152]5,[199](1)[199](4);
320 [139] S [167] 390
330 [161]#4,A$,B$: B1[178][198](A$[170]C$): B2[178][198](B$[170]C$)
340 X[178][165] R(X): [139] X[178]1022 [167] S[178]1: [137] 390: [143] CHECK FOR END OF PRG
350 HI[178][181](X[173]256): LO[178]X[171]HI[172]256: [153] RY$;A;RN$;B1;B2;X;LO;HI
360 A[178]A[170]2: [152]5,[199](LO)[199](HI);
370 [139] A[178]X [167] 320
380 A[178]A[170]1
390 [139] S [167] [152]5,C$;C$;C$;: [160]5: [160]4: [153] "CONVERTED !": [128]
400 [161]#4,A$: S[178]ST: [152]5,[199]([198](A$[170]C$));
410 [137] 370